(ps-generate): Bind inhibit-read-only.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 1f64b51c97417f97b080133a31275c7ee7d3c8a3..8dc5605e7f48116fa41f1e501acd553b7228f113 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1805,7 +1805,10 @@ EndDSCPage\n"))
 
 (defun ps-generate (buffer from to genfunc)
   (let ((from (min to from))
-       (to (max to from)))
+       (to (max to from))
+       ;; This avoids trouble if chars with read-only properties
+       ;; are copied into ps-spool-buffer.
+       (inhibit-read-only t))
     (save-restriction
       (narrow-to-region from to)
       (if ps-razzle-dazzle